home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / gateway.idb / usr / WebFace / Source / 10-InfoSystems / netscape_info / netscape-admin-i.frm.z / netscape-admin-i.frm
Encoding:
Text File  |  1997-07-30  |  4.7 KB  |  160 lines
  1. #!/usr/bin/perl5 -w
  2. #
  3. # netscape-admin-i.cgi
  4. #
  5. # Copyright 1988-1996 Silicon Graphics, Inc.
  6. # All rights reserved.
  7. #
  8. # This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  9. # the contents of this file may not be disclosed to third parties, copied or
  10. # duplicated in any form, in whole or in part, without the prior written
  11. # permission of Silicon Graphics, Inc.
  12. #
  13. # RESTRICTED RIGHTS LEGEND:
  14. # Use, duplication or disclosure by the Government is subject to restrictions
  15. # as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  16. # and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  17. # successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  18. # rights reserved under the Copyright Laws of the United States.
  19. #
  20. # $Id: netscape-admin-i.frm,v 1.3 1997/06/19 22:26:09 shotes Exp $
  21.  
  22. #
  23. # Program to give onRamp access to the netscape admin
  24. # server "ns-admin" for configuring the netscape httpd server
  25. #
  26. # The program must 1) find if the server is installed, 2) find the port to use
  27. # to connect to the ns-admin server, 3) determine if it is running,
  28. # 4) start it if not,  5) redirect the url to the admin-server or 6) if it is
  29. # not installed and configured, to the url for the marketing blurb
  30. # 
  31. #
  32. # NOTE,  this script must be run as root if it must start up the server.
  33. # 
  34. ######################################################################
  35. # global variables                             #
  36. ######################################################################
  37. #
  38. # List of possible netscape server home directories.
  39. # Feel free to extend the list.
  40. #
  41. @ns_admin_home_dirs = (
  42.     '/usr/ns-home',
  43.     '/var/ns-home',
  44.     '/var/netscape',
  45.     '/var/www/ns-home', 
  46.     '/var/www/netscape', 
  47. );
  48.  
  49. $ns_admin_config_file = 'admserv/ns-admin.conf';  # below home_dir
  50.  
  51. $start_admin = 'start-admin';    # the command in homedir to start the server
  52.         
  53. $home_dir = "";            # global variable to save netscape home dir
  54.  
  55. $admin_port = -1;            # port of the netscape admin server
  56.  
  57. # get the hostname to construct the re-direct url's
  58. #
  59.  
  60. # this is not needed when we administer with "localhost:81"
  61. #
  62. #$hstname = `/usr/bsd/hostname`;
  63. #chop($hstname);            # remove the trailing '\n'
  64. #
  65. #$host_name = $hstname;
  66.  
  67. #######################################################################
  68. # First see if we can find the admin server.                  #
  69. #######################################################################
  70.  
  71. DIR:
  72. foreach $dir (@ns_admin_home_dirs) {
  73.    $file = $dir . "/". $ns_admin_config_file;
  74.    if (! open(FILE, $file)) {
  75. #    warn "Cannot open file $file: $!\n";
  76.         next;            # Not in this directory try the next
  77.    }
  78.    $home_dir = $dir;
  79.    
  80.    # Look through the file for the line defining the port the admin server uses
  81.    #
  82.    while (<FILE>) {
  83.     if (/^Port\s+([0-9]+)/) {
  84.         $admin_port = $1;
  85.         last DIR;        # found it get out of the loop
  86.     }
  87.    }
  88. }
  89.  
  90. # So was it installed? Check if there are any news directories under ns-home
  91. # XXX this assumes 1) news is under the same home as the admin-server for it.
  92. # 2) The netscape naming convention of news-<port> is followed.
  93. #
  94. $installed = 0;
  95. open(IN, "/bin/ls $home_dir |");
  96. while(<IN>) { if ($_ =~ m:http[d|s]-:) { $installed = 1; } }
  97. close(IN);
  98. if (! $installed) {
  99.     # nope, redirect to the marketing verbage by creating an html page
  100.     # with the marketing url
  101.     #
  102.     print "Content-type: text/html\n\n";
  103.     print <<EndOfPass;
  104.     <HTML>
  105.     <HEAD>
  106.     <TITLE>Netscape HTTPD</TITLE>
  107.     <META HTTP-EQUIV="refresh" CONTENT="0; URL=ns-httpd-marketing.cgi">
  108.     </HEAD>
  109.     <BODY></BODY>
  110.     </HTML>
  111. EndOfPass
  112.  
  113.     exit 0;
  114. }
  115. ####################################################################### 
  116. # Now let's see if it is already running                  #
  117. #######################################################################
  118. #
  119. # Make a pattern for the test in the if statement
  120. # This can be a problem if the server is started any way other than with its
  121. # full pathname. XXXX
  122. #
  123. $admin_process = $home_dir . "/admserv/ns-admin";
  124.  
  125. # search the ps output for the admin process.
  126. # 
  127. $start = 1;
  128. open(IN, "/bin/ps -ef |");
  129. while(<IN>) {
  130.     if ($_ =~ m:$admin_process:) { $start = 0; }
  131. }
  132. close(IN);
  133.  
  134. if ($start) {
  135.     # it wasn't running,  start it up.
  136.     #
  137.    system $home_dir . "/" . $start_admin;
  138. }
  139.  
  140. ######################################################################
  141. # re-direct to the admin server url                     #
  142. ######################################################################
  143. #
  144.  
  145. $url = "http://" . $ENV{'SERVER_NAME'} . ":" . $admin_port;
  146.  
  147. print "Window-target: gateway_ns-admin\n";
  148. print "Content-type: text/html\n\n";
  149. print <<EndOfPass;
  150.     <HTML>
  151.     <HEAD>
  152.     <TITLE>Netscape  HTTPD</TITLE>
  153.     <META HTTP-EQUIV="refresh" CONTENT="0; URL=$url">
  154.     </HEAD>
  155.     <BODY></BODY>
  156.     </HTML>
  157. EndOfPass
  158.  
  159. exit 0;
  160.